home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 80 / 080.d81 / tax boot (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1991-01-01  |  2.2 KB  |  67 lines
  1. 10 dimf$(7)
  2. 15 fori=1to7:readf$(i):next
  3. 20 data deductions,tax income,bus exp,emp exp,farm,readedstar.o,hello connect
  4. 100 poke53281,0:poke53280,0:poke53272,23:print"[147][158]";
  5. 110 c$="12121515010115151212":cc=-1
  6. 111 ss$="                                        "
  7. 120 fori=1to12:print"[169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223]";:next
  8. 130 fori=1to12:print"[152][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][151][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169]";:next
  9. 140 print"[152][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][151][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169]"
  10. 150 poke2023,peek(1083):poke56295,peek(56255)
  11. 160 fori=217to242:pokei,peek(i)or128:next
  12. 170 poke214,1:print:fori=1to10:printtab(4)"[221][152]                              [146][158][221]"
  13. 180 next:poke214,2:poke211,4:sys58732
  14. 190 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  15. 200 printtab(5)"[155][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][158]"
  16. 210 poke214,12:poke211,4:sys58732
  17. 220 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  18. 230 printtab(5)"[145][145][151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][158]":poke214,4:print
  19. 240 a$="[212]ax [207]rganizer":gosub300
  20. 250 a$="by [194]arbara [200]. [211]chulak":gosub300
  21. 260 a$="[208][213][194][204][201][211][200][197][196][160][207][206][160][204][207][193][196][211][212][193][210][160]#80":gosub300
  22. 270 a$="[211][213][194][211][195][210][201][208][212][201][207][206][211] 1-800-831-2694":gosub300
  23. 280 a$="([195]) 1991 [211]oftdisk":gosub300
  24. 290 goto310
  25. 300 printspc(20-len(a$)/2)"[152]"a$:return
  26. 310 gosub510
  27. 330 poke214,16:poke211,4:sys58732
  28. 340 print"[159]1. [196][197][196][213][195][212][201][207][206][211] ([211][195][200]. [193])
  29. 345 [153]"2. (NULL)atn(NULL)atnpeek(NULL)val right$(NULL)len(NULL)(NULL)val (1040)
  30. 350 print"3. [194][213][211]. [197][216][208][197][206][211][197][211] ([211][195][200]. [195])
  31. 352 [153]"4. val(NULL)(NULL)(NULL)(NULL)(NULL)valval peek(NULL)(NULL). val(NULL)(NULL). (2106)
  32. 354 print"5. [198][193][210][205] [197][216][208][197][206][211][197][211] ([211][195][200]. [198])
  33. 356 [153]"6. right$nstructions
  34. 358 print"7. [204][207][193][196][211][212][193][210]
  35. 370 [153]""
  36. 380 [161]a$:[139]a$[179]"1"[176]a$[177]"7"[167]380
  37. 381 c[178]1024[170](15[170][197](a$))[172]40[170]5:[129]i[178]c[164]c[170]30:[151]i,[194](i)[176]128:[130]
  38. 390 f[178][197](a$):f$[178]f$(f):[139]f[178]6[167]1000
  39. 440 [153]"";:[129]i[178]1[164]14:[153]ss$;:[130]
  40. 441 [129]i[178]217[164]242:[151]i,[194](i)[176]128:[130]
  41. 449 [137]60000
  42. 510 [151]214,15:[158]58732:[129]i[178]1[164]9
  43. 520 [153]"open                                      ":[130]:[153]"":[142]
  44. 1000 [153]"";:[129]i[178]1[164]14:[153]ss$;:[130]
  45. 1001 [129]i[178]217[164]242:[151]i,[194](i)[176]128:[130]
  46. 1002 [158]57812"readedstar.o",8,0:[151]780,0:[151]781,0:[151]782,192:[158]65493
  47. 1003 [141]9000
  48. 1004 [159]2,8,2,"tax.instr,p,r":[158]49152
  49. 1005 [151]198,0:[160]2
  50. 1006 [161]k$:[139]k$[179][177][199](13)[167]1006
  51. 1007 [137]100
  52. 9000 [153]"load          print*** def(NULL)atn(NULL) (NULL)(NULL)chr$atn(NULL)right$(NULL)val(NULL) print***"
  53. 9005 [153]"ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^";
  54. 9010 [129]i[178]1[164]21:[153]"(NULL)                                      (NULL)";:[130]
  55. 9015 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp";
  56. 9020 [153]"              def(NULL)ress (NULL)val(NULL)(NULL)(NULL)(NULL)"
  57. 9025 [142]
  58. 9100 [151]214,22:[153]:[153][163]14)"print(NULL)ress (NULL)val(NULL)(NULL)(NULL)(NULL)"
  59. 9105 [161]k$:[139]k$[179][177][199](13)[167]9105
  60. 9110 [142]
  61. 10000 [159]15,8,15,"s0:tax boot":[160]15:[148]"0:tax boot",8:[128]
  62. 60000 a$[178]f$:[159]15,8,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15
  63. 60010 [139] er[179][177]63 [167][153]"load":[128]
  64. 60011 q$[178][199](34):[151]646,[194](53281)
  65. 60020 [153]"load"q$a$q$",8"
  66. 60030 [153]"?"q$"load"q$":run":[151]631,13:[151]632,13:[151]198,2:[128]
  67.